home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / fastscr.com / FASTDEF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-29  |  4.3 KB  |  100 lines
  1. {$A-,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 16384,0,655360}
  3. Unit FastDef;
  4. (***************************************************************************)
  5. (* Program: FastDef.Pas                                                    *)
  6. (* Last udpate: June 29, 1989                                              *)
  7. (* Author: Mark Addleman                                                   *)
  8. (*                                                                         *)
  9. (* Public domain.  Please distribute freely and in complete form.          *)
  10. (*                                                                         *)
  11. (* Any comments, suggestions, questions, please inform me via CompuServe   *)
  12. (* my ID number is 72777,740                                               *)
  13. (*                                                                         *)
  14. (* Thanks for using FastScrn                                               *)
  15. (***************************************************************************)
  16.  
  17. Interface
  18. Type
  19.     BorderTypes               =   (NoBrdr,
  20.                                   SpaceBrdr, SingleBrdr, DoubleBrdr,
  21.                                   HorizDoubleVertSingleBrdr,
  22.                                   HorizSingleVertDoubleBrdr,
  23.                                   BlockBrdr,
  24.                                   Hatch1Brdr, Hatch2Brdr, Hatch3Brdr,
  25.                                   SmallDotBrdr, MedDotBrdr, BigDotBrdr,
  26.                                   User1Brdr, User2Brdr, User3Brdr
  27.                                  );
  28.    Borders                   =   (HorizTop, HorizBottom,
  29.                                   VertLeft, VertRight, HorizBorders,
  30.                                   VertBorders, AllBorders);
  31.    BorderParts               =   (TL,TR,BL,BR,HT,HB,VR,VL,LC,RC,TC,BC,CC);
  32.    BorderArray               =   Array[TL..CC] of Char;
  33.  
  34. Const
  35.    Black                     =   $0;
  36.    Blue                      =   $1;
  37.    Green                     =   $2;
  38.    Cyan                      =   $3;
  39.    Red                       =   $4;
  40.    Magenta                   =   $5;
  41.    Brown                     =   $6;
  42.    LightGray                 =   $7;
  43.    DarkGray                  =   $8;
  44.    LightBlue                 =   $9;
  45.    LightGreen                =   $A;
  46.    LightCyan                 =   $B;
  47.    LightRed                  =   $C;
  48.    LightMagenta              =   $D;
  49.    Yellow                    =   $E;
  50.    White                     =   $F;
  51.    Blink                     =   $80;
  52.    BlackBG                   =   $0;
  53.    BlueBG                    =   $10;
  54.    GreenBG                   =   $20;
  55.    CyanBG                    =   $30;
  56.    RedBG                     =   $40;
  57.    MagentaBG                 =   $50;
  58.    BrownBG                   =   $60;
  59.    LightGrayBG               =   $70;
  60.    SameAttr                  =   -1;
  61.    SameColor                 =   SameAttr;
  62.  
  63.    NoDisplay                 =   $0;
  64.    MDAmono                   =   $1;
  65.    CGAcolor                  =   $2;
  66.    DCC3                      =   $3;
  67.    EGAcolor                  =   $4;
  68.    EGAmono                   =   $5;
  69.    PGCcolor                  =   $6;
  70.    VGAmono                   =   $7;
  71.    VGAcolor                  =   $8;
  72.    DCC9                      =   $9;
  73.    DCC10                     =   $A;
  74.    MCGAmono                  =   $B;
  75.    MCGAcolor                 =   $C;
  76.    Unknown                   =   $FF;
  77.  
  78.    BorderSt                  :   Array [SpaceBrdr..User3Brdr] of
  79.                                  BorderArray=
  80.                                  ('█████████████',
  81.                                   '┌┐└┘──││├┤┬┴┼',
  82.                                   '╔╗╚╝══║║╠╣╦╩╬',
  83.                                   '╒╕╘╛══││╞╡╤╧╪',
  84.                                   '╓╖╙╜──║║╟╢╥╙╫',
  85.                                   '▄▄▀▀▄▀▐▌▀▀▄▀■',
  86.                                   '░░░░░░░░░░░░░',
  87.                                   '▒▒▒▒▒▒▒▒▒▒▒▒▒',
  88.                                   '▓▓▓▓▓▓▓▓▓▓▓▓▓',
  89.                                   '·············',
  90.                                   '∙∙∙∙∙∙∙∙∙∙∙∙∙',
  91.                                   #7#7#7#7#7#7#7#7#7#7#7#7#7,
  92.                                   '             ',
  93.                                   '             ',
  94.                                   '             ');
  95.  
  96.  
  97. Implementation
  98.  
  99. End.
  100.